REM >Director:Menus.System.CharsSub

REM This makes a menu of all the characters

ON ERROR: ON ERROR OFF: ERROR ERR,REPORT$+" at "+STR$ ERL
DIM block% 256

Menu=FNswi_number("Director_Menu")
EndMenu=FNswi_number("Director_EndMenu")
Option=FNswi_number("Director_Option")
Command=FNswi_number("Director_Command")
Dash=FNswi_number("Director_Dash")

chars$=FNread_sysvar("MenuText")

SYS Menu,""""" CharsSub -temp"

IF chars$<>"" THEN
  FOR i%=1 TO LEN chars$
    a$="""<"+STR$ ASC MID$(chars$,i%,1)+">"""
    SYS Option,a$
    SYS Command,"ProcessKeys "+a$
  NEXT i%
ENDIF

SYS EndMenu

*Set Director$Menu CharsSub

END

DEF FNswi_number(name$)
  SYS "OS_SWINumberFromString",,name$ TO A%
=A%

DEF FNread_sysvar(name$)
  SYS "OS_ReadVarVal",name$,block%,255,0,3 TO ,,A%
  block%?A%=13
=$block%
